library(knitr)
knitr::opts_chunk$set(cache = TRUE, cache.lazy = FALSE, warning=FALSE,
fig.width=8.5, fig.height=6, autodep=TRUE, echo=FALSE)
cases = read.csv("https://covid.ourworldindata.org/data/ecdc/total_cases.csv",
stringsAsFactors=FALSE)
cases$date = as.POSIXct(cases$date)
deaths = read.csv("https://covid.ourworldindata.org/data/ecdc/total_deaths.csv",
stringsAsFactors=FALSE)
deaths$date = as.POSIXct(deaths$date)
Gray dashed lines are doubling times of 1, 2, 3, and 7 days (from steepest to shallowest)
Gray dashed lines are doubling times of 1, 2, 3, and 7 days (from steepest to shallowest)